Get data

library(dplyr); library(readr); library(tidyr); library(ggplot2); library(stringr)

df <- read_tsv("speakers.csv")

results <- read_tsv("results.tsv")
correspondence <- read_tsv("correspondence.tsv")

results %>% 
  left_join(correspondence) %>% 
  left_join(df) %>% 
  filter(!grepl("[tʃrlnm]", folVowel),
       !grepl("[tʃrlnm]", prevVowel)) %>% 
  mutate(repetition = ifelse(repetition == "--undefined--", "", repetition),
         repetition = paste(context, repetition),
         folVowDur = as.double(ifelse(folVowDur == "--undefined--",NA, folVowDur)),
         geminate = ifelse(grepl("[ː:]", stop),"+g", "-g"),
         aff_type = ifelse(grepl("[sz]", stop),"dent", NA),
         aff_type = ifelse(grepl("[ʃʒšžǯ]", stop),"alv", aff_type),
         aff_type = ifelse(grepl("ɬ", stop),"lat", aff_type),
         aff_type = ifelse(grepl("χ", stop),"uv", aff_type),
         affric = ifelse(grepl("ɬ", stop),"affricate", affric),
         affric = ifelse(grepl("χ", stop),"affricate", affric),
         aff_type = ifelse(grepl("χ", stop),"uv", aff_type),
         aff_type = factor(aff_type, levels = c("dent", "alv", "lat", "uv")),
         affric = factor(affric, levels = c("plain", "affricate")),
         voice = ifelse(voice == "voiced", "+v", "-v")) %>% 
  mutate(fric = fric * 1000,
         postfric = postfric*1000,
         folVowDur = folVowDur*1000,
         closdur = closdur*1000,
         VOT = fric + postfric,
         cd_n = closdur/folVowDur,
         vot_n = VOT/folVowDur,
         utterance = paste0(context, "_", repetition),
         poa = factor(poa, levels = c("bilabial", "dental", "velar", "uvular")),
         c_type = ifelse(glott == "glottalic", "ej", voice),
         c_type = ifelse(geminate == "+g", paste0(c_type, ",", "+g"), c_type),
         c_type = factor(c_type, levels = c("+v", "-v", "ej", "-v,+g", "ej,+g"))) ->
  final_df

Absolute values

Absolute values of CD (medial)

During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.

speaker <- unique(final_df[, 31:32])
speaker <- speaker[complete.cases(speaker),]

final_df %>% 
  filter(id == unlist(speaker[1, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[1, 1],
                       speaker[1, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[2, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[2, 1],
                       speaker[2, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[3, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[3, 1],
                       speaker[3, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[4, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[4, 1],
                       speaker[4, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[5, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[5, 1],
                       speaker[5, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[6, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[6, 1],
                       speaker[6, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[7, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[7, 1],
                       speaker[7, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[8, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[8, 1],
                       speaker[8, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[9, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[9, 1],
                       speaker[9, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[10, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[10, 1],
                       speaker[10, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[11, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[11, 1],
                       speaker[11, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[12, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[12, 1],
                       speaker[12, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[13, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[13, 1],
                       speaker[13, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[14, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[14, 1],
                       speaker[14, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[15, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[15, 1],
                       speaker[15, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[16, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[16, 1],
                       speaker[16, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[17, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[17, 1],
                       speaker[17, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[18, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[18, 1],
                       speaker[18, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[19, 1]), position == "medial") %>%
  ggplot(aes(c_type, closdur, color = poa, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
                       speaker[19, 1],
                       speaker[19, 2],
                       "speaker"))+
  facet_grid(repetition~affric+poa)

Absolute values of VOT (medial)

During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated. I added a new lines with 30 and 160 ms from (L&C 2001)

final_df %>% 
  filter(id == unlist(speaker[1, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[1, 1],
                                              speaker[1, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[2, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[2, 1],
                                              speaker[2, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[3, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[3, 1],
                                              speaker[3, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[4, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[4, 1],
                                              speaker[4, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[5, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[5, 1],
                                              speaker[5, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[6, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[6, 1],
                                              speaker[6, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[7, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[7, 1],
                                              speaker[7, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[8, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[8, 1],
                                              speaker[8, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[9, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[9, 1],
                                              speaker[9, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[10, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[10, 1],
                                              speaker[10, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[11, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[11, 1],
                                              speaker[11, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[12, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[12, 1],
                                              speaker[12, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[13, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[13, 1],
                                              speaker[13, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[14, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[14, 1],
                                              speaker[14, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[15, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[15, 1],
                                              speaker[15, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[16, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[16, 1],
                                              speaker[16, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[17, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[17, 1],
                                              speaker[17, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[18, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[18, 1],
                                              speaker[18, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[19, 1]), position == "medial") %>%
  ggplot(aes(c_type, VOT, color = poa, label = stop))+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
                                              speaker[19, 1],
                                              speaker[19, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

Absolute values of CD ~ VOT (medial)

During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.

final_df %>% 
  filter(id == unlist(speaker[1, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
                                              speaker[1, 1],
                                              speaker[1, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[2, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
                                              speaker[2, 1],
                                              speaker[2, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[3, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
                                              speaker[3, 1],
                                              speaker[3, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[4, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[4, 1],
                                              speaker[4, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[5, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[5, 1],
                                              speaker[5, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[6, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[6, 1],
                                              speaker[6, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[7, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
                                              speaker[7, 1],
                                              speaker[7, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[8, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[8, 1],
                                              speaker[8, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[9, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[9, 1],
                                              speaker[9, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[10, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[10, 1],
                                              speaker[10, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[11, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[11, 1],
                                              speaker[11, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[12, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[12, 1],
                                              speaker[12, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[13, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[13, 1],
                                              speaker[13, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[14, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[14, 1],
                                              speaker[14, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[15, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[15, 1],
                                              speaker[15, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[16, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[16, 1],
                                              speaker[16, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[17, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[17, 1],
                                              speaker[17, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[18, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[18, 1],
                                              speaker[18, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[19, 1]), position == "medial") %>%
  ggplot(aes(closdur, VOT, color = c_type, label = stop))+
  geom_text(show.legend = F)+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (ms)", x = "CD (ms)",  caption = paste("medial position, based on",
                                              speaker[19, 1],
                                              speaker[19, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

Relative values

Relative values of CD (medial)

During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.

final_df %>% 
  filter(id == unlist(speaker[1, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[1, 1],
                                              speaker[1, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[2, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[2, 1],
                                              speaker[2, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[3, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[3, 1],
                                              speaker[3, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[4, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[4, 1],
                                              speaker[4, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[5, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[5, 1],
                                              speaker[5, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[6, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[6, 1],
                                              speaker[6, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[7, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[7, 1],
                                              speaker[7, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[8, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[8, 1],
                                              speaker[8, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[9, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[9, 1],
                                              speaker[9, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[10, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[10, 1],
                                              speaker[10, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[11, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[11, 1],
                                              speaker[11, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[12, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[12, 1],
                                              speaker[12, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[13, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[13, 1],
                                              speaker[13, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[14, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[14, 1],
                                              speaker[14, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[15, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[15, 1],
                                              speaker[15, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[16, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[16, 1],
                                              speaker[16, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[17, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[17, 1],
                                              speaker[17, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[18, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[18, 1],
                                              speaker[18, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[19, 1]), position == "medial") %>%
  ggplot(aes(c_type, cd_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "CD (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[19, 1],
                                              speaker[19, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

Relative values of VOT (medial)

During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated. I added a new lines with 30 and 160 ms from (L&C 2001)

final_df %>% 
  filter(id == unlist(speaker[1, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[1, 1],
                                              speaker[1, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[2, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[2, 1],
                                              speaker[2, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[3, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[3, 1],
                                              speaker[3, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[4, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[4, 1],
                                              speaker[4, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[5, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[5, 1],
                                              speaker[5, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[6, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[6, 1],
                                              speaker[6, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[7, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[7, 1],
                                              speaker[7, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[8, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[8, 1],
                                              speaker[8, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[9, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[9, 1],
                                              speaker[9, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[10, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[10, 1],
                                              speaker[10, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[11, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
                                              speaker[11, 1],
                                              speaker[11, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[12, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[12, 1],
                                              speaker[12, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[13, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[13, 1],
                                              speaker[13, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[14, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[14, 1],
                                              speaker[14, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[15, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[15, 1],
                                              speaker[15, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[16, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[16, 1],
                                              speaker[16, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[17, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[17, 1],
                                              speaker[17, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[18, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[18, 1],
                                              speaker[18, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[19, 1]), position == "medial") %>%
  ggplot(aes(c_type, vot_n, color = poa))+
  geom_point()+
  theme_bw()+
  theme(legend.position="top")+
  labs(y = "VOT (normalized)", x = "",  caption = paste("medial position, based on",
                                              speaker[19, 1],
                                              speaker[19, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

Relative values of CD ~ VOT (medial)

During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.

final_df %>% 
  filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
                                              speaker[1, 1],
                                              speaker[1, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
                                              speaker[2, 1],
                                              speaker[2, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
                                              speaker[3, 1],
                                              speaker[3, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
                                              speaker[4, 1],
                                              speaker[4, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[5, 1],
                                              speaker[5, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[6, 1],
                                              speaker[6, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
                                              speaker[7, 1],
                                              speaker[7, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[8, 1],
                                              speaker[8, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[9, 1],
                                              speaker[9, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[10, 1],
                                              speaker[10, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
                                              speaker[11, 1],
                                              speaker[11, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[12, 1],
                                              speaker[12, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[13, 1],
                                              speaker[13, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[14, 1],
                                              speaker[14, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[15, 1],
                                              speaker[15, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[16, 1],
                                              speaker[16, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[17, 1],
                                              speaker[17, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[18, 1],
                                              speaker[18, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)

final_df %>% 
  filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)",  caption = paste("medial position, based on",
                                              speaker[19, 1],
                                              speaker[19, 2],
                                              "speaker"))+
  facet_grid(repetition~affric+poa)